home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getdis1r / frmopt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-26  |  2.7 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpt 
  3.    Caption         =   "WebNet Browser Options"
  4.    ClientHeight    =   1356
  5.    ClientLeft      =   48
  6.    ClientTop       =   336
  7.    ClientWidth     =   6756
  8.    ControlBox      =   0   'False
  9.    ForeColor       =   &H80000005&
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1356
  12.    ScaleWidth      =   6756
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.CommandButton Command3 
  15.       Caption         =   "Cancel"
  16.       Height          =   252
  17.       Left            =   5520
  18.       TabIndex        =   6
  19.       Top             =   852
  20.       Width           =   1092
  21.    End
  22.    Begin VB.CommandButton Command2 
  23.       Caption         =   "Apply"
  24.       Default         =   -1  'True
  25.       Enabled         =   0   'False
  26.       Height          =   372
  27.       Left            =   5520
  28.       TabIndex        =   5
  29.       Top             =   456
  30.       Width           =   1092
  31.    End
  32.    Begin VB.TextBox Text1 
  33.       Enabled         =   0   'False
  34.       Height          =   288
  35.       Left            =   240
  36.       TabIndex        =   4
  37.       Text            =   "http://"
  38.       Top             =   840
  39.       Width           =   5052
  40.    End
  41.    Begin VB.OptionButton Option2 
  42.       Caption         =   "Home Page"
  43.       Height          =   252
  44.       Left            =   240
  45.       TabIndex        =   2
  46.       Top             =   600
  47.       Width           =   1212
  48.    End
  49.    Begin VB.OptionButton Option1 
  50.       Caption         =   "Blank Page"
  51.       Height          =   252
  52.       Left            =   240
  53.       TabIndex        =   1
  54.       Top             =   360
  55.       Width           =   1092
  56.    End
  57.    Begin VB.CommandButton Command1 
  58.       Caption         =   "OK"
  59.       Height          =   192
  60.       Left            =   5520
  61.       TabIndex        =   0
  62.       Top             =   240
  63.       Width           =   1092
  64.    End
  65.    Begin VB.Frame Frame1 
  66.       Caption         =   "Start With: (Does Not Work Yet)"
  67.       Height          =   1092
  68.       Left            =   120
  69.       TabIndex        =   3
  70.       Top             =   120
  71.       Width           =   5292
  72.    End
  73. Attribute VB_Name = "frmOpt"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Private Sub Command1_Click()
  79. Unload Me
  80. End Sub
  81. Private Sub Command2_Click()
  82. Command2.Enabled = False
  83. End Sub
  84. Private Sub Command3_Click()
  85. Unload Me
  86. End Sub
  87. Property Get Form1() As Object
  88. End Property
  89. Private Sub Option1_Click()
  90. Text1.Enabled = False
  91. Command2.Enabled = True
  92. Opt1Err:
  93. End Sub
  94. Private Sub Option2_Click()
  95. Text1.Enabled = True
  96. Command2.Enabled = True
  97. End Sub
  98.